home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / disk / misc / MaxDOS25Demo.lha / MaxDOS 2.5 Demo / Install MaxDOS Demo < prev    next >
Encoding:
Text File  |  1995-03-22  |  3.8 KB  |  114 lines
  1. ;$VER: MaxDOS 2.5 Demo Installation Script 1.0 (14.03.95)
  2.  
  3. (set _AskInstallPrompt
  4.  (cat "\n\n\nDo you want to install the MaxDOS 2.5 demo?\n\n\n"
  5.       "(MaxDOS is a Macintosh compatible filesystem for the Amiga computer--see the "
  6.       "included MaxDOS Read Me file for details.)")
  7. )
  8.  
  9. (set _AskInstallHelp
  10.  (cat "\nThe MaxDOS 2.5 demo is both easily installed and easily removed "
  11.       "with the included removal utility.\n\nYou should NOT continue if "
  12.       "a version of MaxDOS is already installed on your system.")
  13. )
  14.  
  15. (set _ExitMessage
  16.  (cat "See the included MaxDOS Read Me file for instructions on getting "
  17.       "started with MaxDOS 2.5--please be aware that this is a crippled demo "
  18.       "version.\n\n"
  19.       "You should reboot your system before attempting to use MaxDOS.")
  20. )
  21.  
  22. (set _NoWayMessage
  23.  (cat "A version of MaxDOS is already installed on your system.  Installation "
  24.       "of this demo version would interfere with the function of the currently "
  25.       "installed version.")
  26. )
  27.  
  28. (set _no-mfm-text
  29.  (cat "\nYou do not appear to have the file \"mfm.device\" in your "
  30.       "DEVS: directory. This will not affect your ability to access "
  31.       "SCSI devices, but it does preclude your ability to access "
  32.       "high-density floppies (which is, in turn, possible only with a "
  33.       "high-density drive).\n\n"
  34.       "This file is part of the standard distribution of Workbench 2.1 "
  35.       "and above. See the MaxDOS Demo Read Me for more information.")
  36. )
  37.  
  38. (complete 0)
  39.  
  40. (if (not(exists "L:MaxDOSFileSystem"))
  41.     (if (askbool (prompt _AskInstallPrompt)
  42.                  (help _AskInstallHelp)
  43.                  (default 1)
  44.         )
  45.         (
  46.          (set n 0)
  47.          (while (set _Source (select n "l/MaxDOSFileSystem"
  48.                                         "Tools/Commodities/MaxDOSFiles"
  49.                                         "Tools/Commodities/MaxDOSTypes"
  50.                                         "Utilities/Mounter"
  51.                                         "Utilities/XRes"
  52.                                         "Utilities/XHex"
  53.                                         ""
  54.                               )
  55.                  )
  56.                  (set _Dest   (select n "l:"
  57.                                         "SYS:WBStartup"
  58.                                         "SYS:WBStartup"
  59.                                         "SYS:Utilities"
  60.                                         "SYS:Utilities"
  61.                                         "SYS:Utilities"
  62.                                         ""
  63.                               )
  64.                  )
  65.                 (
  66.                  (copyfiles (source _Source)
  67.                             (dest _Dest)
  68.                             (infos)
  69.                  )
  70.                  (set n (+ n 1))
  71.                  (complete (* n 10))
  72.                 )
  73.          )
  74.          (if (exists "SYS:Storage/DosDrivers")
  75.              (
  76.               (copyfiles (source "Storage/DosDrivers/MF0")
  77.                          (dest "SYS:Storage/DosDrivers")
  78.                          (infos)
  79.               )
  80.               (copyfiles (source "Storage/DosDrivers/MF1")
  81.                          (dest "SYS:Storage/DosDrivers")
  82.                          (infos)
  83.               )
  84.               (copyfiles (source "Storage/DosDrivers/MF2")
  85.                          (dest "SYS:Storage/DosDrivers")
  86.                          (infos)
  87.               )
  88.               (copyfiles (source "Storage/DosDrivers/MF3")
  89.                          (dest "SYS:Storage/DosDrivers")
  90.                          (infos)
  91.               )
  92.              )
  93.              (
  94.               (copyfiles (source "Devs/mountlist.maxdos")
  95.                          (dest "DEVS:")
  96.               )                     
  97.              )
  98.          )
  99.     
  100.          (if (NOT (exists "DEVS:mfm.device"))
  101.              (message _no-mfm-text)
  102.          )
  103.         )
  104.     )
  105.     (
  106.         (abort _NoWayMessage)
  107.     )
  108.  
  109. )
  110.  
  111. (complete 100)
  112.  
  113. (exit _ExitMessage)
  114.